From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 12 Jul 1996 00:22:51 +0000 (+0000)
Subject: (menu_bar_item): Skip menu-bar equiv keys data
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~83422
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=210df3bf250c25836a55d8835bafd6d94ef1c553;p=emacs.git

(menu_bar_item): Skip menu-bar equiv keys data
to get just the keymap.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index c4d49020676..e01e7e17f93 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -5223,6 +5223,10 @@ menu_bar_item (key, item_string, def)
   Lisp_Object enabled;
   int i;
 
+  /* Skip menu-bar equiv keys data.  */
+  if (CONSP (def) && CONSP (XCONS (def)->car))
+    def = XCONS (def)->cdr;
+
   if (EQ (def, Qundefined))
     {
       /* If a map has an explicit `undefined' as definition,